home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / v cisle / steadystate / SteadyState_Setup_ENU.exe / sctetrust7virusupdate.vbs < prev    next >
Encoding:
Text File  |  2006-12-12  |  1.2 KB  |  39 lines
  1. ' *** 
  2. ' *** ------------------------------------------------------------------------------
  3. ' *** Filename:        SCTeTrust7VirusUpdate.vbs
  4. ' *** ------------------------------------------------------------------------------
  5. ' *** Description:    eTrust Virus Signature Update
  6. ' *** ------------------------------------------------------------------------------
  7. ' *** Version:        1.0
  8. ' *** Notes:        Used by Windows Disk Protection
  9. ' *** ------------------------------------------------------------------------------
  10. ' *** Copyright (C) Microsoft Corporation 2005, All Rights Reserved
  11. ' *** ------------------------------------------------------------------------------
  12. ' *** 
  13.  
  14. ' ~~~ 
  15. ' ~~~ Force variables to be declared 
  16. ' ~~~ 
  17. Option Explicit
  18.  
  19. ' ~~~ 
  20. ' ~~~ Turn on error handling
  21. ' ~~~ 
  22. On Error Resume Next
  23.  
  24. ' ~~~
  25. ' ~~~ Declare variables and constants
  26. ' ~~~
  27. Dim seTrustPath, oShell
  28.  
  29. ' ~~~ Create objects
  30. Set oShell = CreateObject("WScript.Shell")
  31.  
  32. ' ~~~ Set application path
  33. seTrustPath = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ComputerAssociates\ScanEngine\Path\Engine")
  34.  
  35. ' ~~~ Download Virus Signature
  36. call oShell.Run("""" & seTrustPath & "\InoDist.exe""" & " /cfg " & seTrustPath & "\inodist.ini", 0, True)
  37.  
  38.  
  39.